home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Windows 1993 Fall / TestDrive Windows 1993 Fall.iso / dbase / dtl / as_clnup.cod < prev    next >
Encoding:
Text File  |  1993-03-09  |  361 b   |  25 lines
  1. //
  2. PROCEDURE Cleanup
  3. *{replicate("-",69)}
  4. * Test whether report option was selected
  5. *{replicate("-",69)}
  6.  
  7.   DO CASE
  8.  
  9.     CASE gc_dev='CON'
  10.       DO Wait4Key
  11.  
  12.     CASE gc_dev='PRN'
  13.       SET PRINT OFF
  14.       SET PRINTER TO
  15.  
  16.     CASE gc_dev='TXT'
  17.       CLOSE ALTERNATE
  18.  
  19.   ENDCASE
  20.   gc_dev='CON'
  21.  
  22. RETURN
  23. *-- EOP: Cleanup
  24. // EOP AS_CLNUP.COD
  25.